%
O9750(RENSETTING)
(F-4012-0584-AG)
G90G80G40G0
(VALUES IN MM ONLY) 
#101=200.(FIRST TOUCH FEEDRATE)
#102=1.(TOOL OFFSET TYPE)
#103=1.(SINGLE SIDED SELECTION)
#104=-1.(PROBE ORIENTATION)
#105=0.3(BACK-OFF DISTANCE)
#106=0(TWO TL/SETTER 0=NO 1=YES)
#109=1.(OFFSET-RADIUS 1/DIAMETER 2)
#110=10.(TOOL DIA >#110 ROTATE)
#111=100.(TOOL DIA >#111 SINGLE SIDE)
#113=100.(INITAL CLEARANCE)
#114=10.(SECONDARY CLEARANCE Z)
#117=5.(DEFAULT OVERTRAVEL)
#118=0(OTS TL/SETTER YES=1 NO=0)
#120=520.(BASE NUMBER)
#121=1.(AXIS NUMBER)
#122=2.(AXIS NUMBER)
#123=3.(AXIS NUMBER)
#124=2000.(LT/ST SEARCH FEEDRATE)
#125=5.(RADIAL CLEARANCE)
#127=5000.(RAPID TRAVERSE)
#128=0.015(STYLUS LEVEL TOL)
#138=0(MAX TOOL LENGTH)
#139=0(MIN TOOL LENGTH)
#145=0.005(ZONE CHK)
#129=1.
IF[#4006EQ21]GOTO2
IF[#4006EQ71]GOTO2
#129=1/25.4
N2
(IF P5006.6 AND P6019.4 ARE SAME)
(SET #112=1)
(IF P5006.6 AND P6004.4 ARE DIFFERENT)
(SET #112=1)
#112=0(P5006.6)
IF[ABS[#104]GT20.]GOTO4
#115=1.
IF[#104GT0]GOTO6
#115=-1.
GOTO6
N4
#111=0
#115=-1.
#103=-1
IF[#104LT0]GOTO6
#115=1
#103=1
N6
GOTO10(DELETE*FOR*MELDAS)
IF[#102NE1]GOTO8
(TYPE*1)
#140=0(A)
#141=10000(LA)
#142=0(A)
#143=10000(RA)
GOTO16
N8(TYPE*2)
#140=11000(LWC)
#141=10000(LGC)
#142=17000(RWC)
#143=16000(RGC)
GOTO16
N10
IF[#102EQ3.]GOTO14
IF[#102EQ2.]GOTO12
#140=0(A)
#141=2000(LA)
#142=0(A)
#143=2000(RA)
GOTO16
N12
#140=2000(LWB)
#141=2200(LGB)
#142=2000(RWB)
#143=2200(RGB)
GOTO16
N14
#140=2000(LWC)
#141=2200(LGC)
#142=12000(RWC)
#143=13000(RGC)
N16
IF[#6NE#0]GOTO18
IF[#20NE#0]GOTO18
#20=#4120
N18
#101=#101*#129
#105=#105*#129
#110=#110*#129
#111=#111*#129
#113=#113*#129
#114=#114*#129
#117=#117*#129
#124=#124*#129
#125=#125*#129
#127=#127*#129
#128=#128*#129
#138=#138*#129
#139=#139*#129
#145=#145*#129
#1=#0
IF[#106EQ0]GOTO22
M0(EDIT*SECOND*PROBE*RECOGNITION*HERE)
#[#120]=#[#120+8]
#[#120+1]=#[#120+9]
#[#120+2]=#[#120+10]
#[#120+3]=#[#120+11]
#[#120+4]=#[#120+12]
#[#120+5]=#[#120+13]
#[#120+6]=#[#120+14]
GOTO22
N46
(SECOND*PROBE*SIDE)
(EDIT*NEW*SETTING*HERE*FOR*SECOND*PROBE)
#[#120]=#[#120+15]
#[#120+1]=#[#120+16]
#[#120+2]=#[#120+17]
#[#120+3]=#[#120+18]
#[#120+4]=#[#120+19]
#[#120+5]=#[#120+20]
#[#120+6]=#[#120+21]
N22
#108=43(G43)
#100=1(+#116)
IF[#123GT0]GOTO24
#100=-1(-#116)
#108=44(G44)
N24
#121=ABS[#121]
#122=ABS[#122]
#123=ABS[#123]
#107=40
M99


O9751(RENSTART)
G[20-#123]
IF[#20LE0]GOTO20
IF[#1EQ1]GOTO6
IF[#1EQ2]GOTO6
IF[#123EQ1]GOTO2
IF[#123EQ2]GOTO4
G91G28Z0
G90
GOTO6
N2
(EDIT*SAFE*X*POSITION*HERE)
M0
G53X0.
G90
GOTO6
(EDIT*SAFE*Y*POSITION*HERE)
M0
N4
G53Y0.
N6G90
#14=#[5020+#123]-#[5040+#123]
#15=#[5020+#122]-#[5040+#122]
#16=#[5020+#121]-#[5040+#121]
#116=#[#141+#20]
IF[#102EQ1]GOTO5
#116=#[#140+#20]+#[#141+#20](B*TYPE)
N5
IF[#119NE9857]GOTO9
IF[[#7*2]GT#110]GOTO8
IF[#138NE0]GOTO9
N8
IF[#116NE0]GOTO9
#107=110
M98P9759
N9
#116=#116*#100
IF[#112EQ0]GOTO10
#112=#116
#112=#112*#100
#14=#14-#112
#116=0
N10
#136=[#[#120+3]+#[#120+4]]/2
#136=#136*#129
#136=#136-#15
#133=[ABS[#[#120+1]-#[#120+2]]]/2
#133=#133*#129
#134=[ABS[#[#120+3]-#[#120+4]]]/2
#134=#134*#129
#137=[#[#120+1]+#[#120+2]]/2
#137=#137*#129
#137=#137-#16
IF[#27EQ1]GOTO18
#107=#[5020+#123]
IF[#123EQ2]GOTO12
IF[#123EQ1]GOTO14
G#108G31H#20Z[#[5040+#123]-#116-#112]F[100*#129]
GOTO16
N12
G#108G31H#20Y[#[5040+#123]-#116-#112]F[100*#129]
GOTO16
N14
G#108G31H#20X[#[5040+#123]-#116-#112]F[100*#129]
N16
#107=#107-#[5020+#123]
#107=ABS[#107]
IF[#107LT[.01*#129]]GOTO18
#3000=99(CHECK*PARM*5006.6*SETTING)
N18
IF[#1EQ1]GOTO22
IF[#1EQ2]GOTO22
G65P9754X#137Y#136
GOTO22
N20#107=110
M98P9759
N22#107=#0
M99


O9752(REN*MEASURE*MOVE)
IF[#7NE#0]GOTO2
#7=#101
N2IF[#7LT#101]GOTO4
#7=#101
N4
IF[#17NE#0]GOTO6
#17=#117
N6#31=0
IF[#1NE#123]GOTO8
#31=#116
N8#32=1
IF[#20LE#[5040+#1]-#31]GOTO10
#32=-1
N10#20=#20-[#17*#32]
G65P9753A#1T[#20]F#7
#2=#105
#2=#131+[#2*#32]
IF[#23EQ4.]GOTO20
IF[#107EQ20.]GOTO22
G65P9754A#1T[#2]F[1000*#129]
IF[#19EQ#0]GOTO12
S#19
GOTO14
N12
IF[#1NE#123]GOTO14
IF[#22NE#0]GOTO14
G65P9754X[#137]Y[#136]F[#127/4]
N14
#3004=2.
#20=#131-[#117*#32]
G65P9753A#1T[#20]F#9
IF[#22NE#0]GOTO16
IF[#1NE3.]GOTO16
#2=#131+[#114*#32]
GOTO18
N16
#2=#131+[#125*#32]
N18
G65P9754A#1T[#2]F[1000*#129]
N20#3004=0
#107=#0
N22
M99


O9753(REN*G31*MOVE)
G53
#4=0
#6=0
IF[#1NE#123]GOTO2
#6=#116
N2
G4X.01
#10=#[5040+#1]-#6
G4X.001
G4X.001
G4X.001
G4X.001
IF[#1EQ3]GOTO6
IF[#1EQ2]GOTO4
G4X.01
G31X#20F#9
GOTO8
N4G31Y#20F#9
GOTO8
N6
G31Z#20F#9
N8
#131=#[5060+#1]-#6(SKIP)
G4X.001
IF[#23EQ1.]GOTO14
IF[#23EQ3.]GOTO10
IF[#23EQ2.]GOTO12
IF[#23EQ4.]GOTO12
N10#107=20
IF[ABS[#131-#20]LT#145]GOTO16
N12G4X.01
IF[ABS[#131-#10]GT#145]GOTO24
IF[#23EQ4.]GOTO14
#107=10.
GOTO16
N14
#107=10
IF[ABS[#131-#20]GT#145]GOTO16
GOTO24
N16
IF[#138EQ9858.]GOTO26
IF[#1EQ3]GOTO20
IF[#1EQ2]GOTO18
G9G1X#10F#127
GOTO22
N18
G9G1Y#10F#127
GOTO22
N20
G9G1Z#10F#127
N22
M98P9759
N24
#107=#0
N26
M99


O9754(G0*G1*MOVE)
G53
IF[#24NE#0]GOTO2
#24=#[5040+#121]
N2IF[#25NE#0]GOTO4
#25=#[5040+#122]
N4IF[#26NE#0]GOTO6
#26=#[5040+#123]-#116
N6#[3+#121]=#24
#[3+#122]=#25
#[3+#123]=#26
IF[#1EQ#0]GOTO8
#[3+#1]=#20
N8
IF[#9NE#0]GOTO10
G0X#4Y#5Z#6
GOTO12
N10G1X#4Y#5Z#6F#9
N12
G4X.001
G4X.001
G4X.001
G4X.001
G4X.001
WHILE[ABS[#[5040+#121]-#[3+#121]]GT#145]DO1
END1
WHILE[ABS[#[5040+#122]-#[3+#122]]GT#145]DO1
END1
WHILE[ABS[[#[5040+#123]-#116]-#[3+#123]]GT#145]DO1
END1
M99


O9755(DIA*SET)
G65P9753A#123T[[#[#120]*#129]-#14+[[#23+#10]*#100]-#112]F#127W1.
G65P9753A#121T[#137]F#127W1.
G65P9753A#122T[#136]F#127W1.
S#132
M#19
IF[#26NE#0]GOTO2
#26=5.*#129
N2
#28=#122
#29=#136
#31=#134
IF[ABS[#104]EQ200.]GOTO4
IF[ABS[#104]EQ1.]GOTO4
#28=#121
#29=#137
#31=#133
N4
IF[ABS[#7*2]GT#111]GOTO6
G65P9753A#28T[#29-[[#31+#125+ABS[#7]]*#115]]F#127W1.
G65P9753A#123T[[#[#120]*#129]-#14-[[#26-#10]*#100]-#112]F#127W1.
G65P9752A#28T[#29-[[#31+ABS[#7]]*#115]]F#144D#9Q#17S#130
#21=#29-#131-[[#31+[#[#120+6]]*#129]*#115]
G65P9753A#123T[[#[#120]*#129]-#14+[[#23+#10]*#100]-#112]F#127W1.
S#132
M#19
G65P9753A#28T[#29+[[#31+#125+ABS[#7]]*#115]]F#127W1.
G65P9753A#123T[[#[#120]*#129]-#14-[[#26-#10]*#100]-#112]F#127W1.
G65P9752A#28T[#29+[[#31+ABS[#7]]*#115]]F#144D#9Q#17S#130
#12=#131
G65P9753A#123T[[#[#120]*#129]-#14+[[#23+#10]*#100]-#112]F#127W1.
G65P9753A#28T#29F#127W1.
#12=#29-#12+[[#31+[#[#120+6]]*#129]*#115]
#21=ABS[#21]
#12=ABS[#12]
#12=[#12+#21]/2
GOTO8
N6
G65P9753A#28T[#29-[[#31+#125+ABS[#7]]*#103]]F#127W1.
G65P9753A#123T[[#[#120]*#129]-#14-[[#26-#10]*#100]-#112]F#127W1.
G65P9752A#28T[#29-[[#31+ABS[#7]]*#103]]F#144D#9Q#17S#130
#12=#29-#131
G65P9753A#123T[[#[#120]*#129]-#14+[[#23+#10]*#100]-#112]F#127W1.
G65P9753A#28T#29F#127W1.
#12=#12-[[#31+[[#[#120+6]]*#129]]*#103]
#12=#12*#103
N8
M99


O9759(REN*ERROR*MESSAGE)
(AIR*BLAST*OFF)
M5
G90
N1(GB)
GOTO[#107]
N10
#3000=92(PROBE*OPEN)
N20
#3000=93(PROBE*FAIL)
N30
#3000=97(H*INPUT*NOT*ALLOWED)
N40
#3000=80(MISSING*DATA*IN*O9750)
N50
#3000=81(TOOL*PULL*OUT)
N60
#3000=99(BROKEN*TOOL)
N70
#3000=94(SAME*T-D*OFFSET)
N80
#3000=95(Y*INPUT*OUT*OF*RANGE)
N90
#3000=91(FORMAT*ERROR)
N100
#3000=96(NO*B*INPUT)
N110
#3000=97(TOOL*OUT*OF*RANGE)
N120
#3000=98(D*INPUT*MISSING)
N130
#3000=90(OUT*OF*TOLERANCE)
N135
#3000=100(THERMAL*COMP*TOLERANCE*EXCEEDED)
N140
(M0)
(IS*TOOL*OFFSET*CORRECT)
(*CYCLE*START*TO*CONTINUE)
GOTO210
N150
#3000=82(Y*INPUT*MISSING)
N160
#3000=83(TOOL*OFFSET*ACTIVE)
N410
#3000=195(CALIBRATION*REQUIRED)
N417
#3000=194(DISC*STYLUS*NOT*LEVEL)
N420
#3000=193(SKIP*FUNCTION*TEST*FAILED)
N435
#3006=1(PROBE*BASIC*CHECK*PASSED)
N210
M99


O9855(REN*STLUS*CALIBRATION)
(COPYRIGHT*1992-2015*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
#119=9855
M98P9750
IF[#118EQ0]GOTO2
(PROBE*ON)
G4X1.0
N2
(AIR*BLAST*ON)
#30=30*#129
#31=4*#129
#2=#21
#9=#22
IF[#7EQ#0]GOTO4
#25=#7
#24=#7
N4
M5
#107=90
IF[#18EQ#0]GOTO42
IF[#25EQ#0]GOTO42
IF[#24EQ#0]GOTO42
IF[#26NE#0]GOTO6
#26=5*#129
N6
IF[#17NE#0]GOTO8
#17=#117
N8
#10=[#18/2]+#125
#107=110
IF[#20LE0]GOTO42
#1=1.
M98P9751
IF[#6NE#0]GOTO10
#6=#116
N10
#4=#[5040+#121]
#5=#[5040+#122]
#8=#[5040+#123]-#116
#137=#4
#136=#5
IF[#2EQ#0]GOTO12
#27=#[5040+#121]
G65P9754X[#27+#2]F[2000*#129]
N12
IF[#9EQ#0]GOTO14
#28=#[5040+#122]
G65P9754Y[#28+#9]F[2000*#129]
N14
G65P9752A#123Q#17T[#8-[[10.*#129]*#100]]F[#30]V1.
#20=#131
G65P9752A#123Q#17T[#8-[[10.*#129]*#100]]F[#31]V1.
#136=#131
#[#120]=#20+#14+#116-#6
#[#120]=[#[#120]+#112]/#129
#[#120+5]=#[#120]-[[#3*#100]/#129]
#[#120+6]=[#136-#20]/#129
#[#120+7]=0
M4S800
#21=0
N16
#21=#21+1
#130=#0
#132=#0
#22=#0
#126=#0
IF[#2EQ#0]GOTO18
G65P9754X#27F[2000*#129]
N18
IF[#9EQ#0]GOTO20
G65P9754Y#28F[2000*#129]
N20
IF[#104EQ200]GOTO26
IF[#104EQ-200]GOTO22
IF[#104EQ-100]GOTO28
IF[#104EQ100]GOTO24
N22
IF[#104EQ2]GOTO24
G65P9753A#122T[#5+[#25/2]+#10]F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
G65P9752A#122Q#17T[#5+[#25/2]+[#18/2]]F[#31]
#130=#131
G65P9753A#123T[#20+[#114*#100]]F#127W1.
G65P9753A#122T[#5]F#127W1.
IF[ABS[#104]GT20.]GOTO40
IF[#104EQ-1.]GOTO26
N24
G65P9753A#121T[#4-[#24/2]-#10]F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
G65P9752A#121Q#17T[#4-[#24/2]-[#18/2]]F[#31]
#126=#131
G65P9753A#123T[#20+[#114*#100]]F#127W1.
G65P9753A#121T[#4]F#127W1.
IF[ABS[#104]GT20.]GOTO40
IF[#104EQ-2.]GOTO28
N26
G65P9753A#122T[#5-[#25/2]-#10]F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
G65P9752A#122Q#17T[#5-[#25/2]-[#18/2]]F[#31]
#132=#131
G65P9753A#123T[#20+[#114*#100]]F#127W1.
G65P9753A#122T[#5]F#127W1.
IF[ABS[#104]GT20]GOTO40
IF[#104EQ1.]GOTO30
N28
G65P9753A#121T[#4+[#24/2]+#10]F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
G65P9752A#121Q#17T[#4+[#24/2]+[#18/2]]F[#31]
#22=#131
G65P9753A#123T[#20+[#114*#100]]F#127W1.
G65P9753A#121T[#4]F#127W1.
IF[ABS[#104]GT20.]GOTO40
N30
IF[#130EQ#0]GOTO32
IF[#126EQ#0]GOTO34
IF[#132EQ#0]GOTO36
IF[#22EQ#0]GOTO38
GOTO40
N32#130=#5+ABS[#5-#132]
IF[#7EQ#0]GOTO40
G65P9754X[[#126+#22]/2]
G65P9753A#122T[#5-[#25/2]-#10]F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
G65P9752A#122Q#17T[#5-[#25/2]-[#18/2]]F[#31]
#132=#131
G65P9753A#123T[#20+[#114*#100]]F#127W1.
G65P9753A#122T[#5]F#127W1.
#130=#132+#7+#18
GOTO40
N34#126=#4-ABS[#4-#22]
IF[#7EQ#0]GOTO40
G65P9754Y[[#130+#132]/2]
G65P9753A#121T[#4+[#24/2]+#10]F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
G65P9752A#121Q#17T[#4+[#24/2]+[#18/2]]F[#31]
#22=#131
G65P9753A#123T[#20+[#114*#100]]F#127W1.
G65P9753A#121T[#4]F#127W1.
#126=#22-#7-#18
GOTO40
N36#132=#5-ABS[#5-#130]
IF[#7EQ#0]GOTO40
G65P9754X[[#126+#22]/2]
G65P9753A#122T[#5+[#25/2]+#10]F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
G65P9752A#122Q#17T[#5+[#25/2]+[#18/2]]F[#31]
#130=#131
G65P9753A#123T[#20+[#114*#100]]F#127W1.
G65P9753A#122T[#5]F#127W1.
#132=#130-#7-#18
GOTO40
N38#22=#4+ABS[#4-#126]
IF[#7EQ#0]GOTO40
G65P9754Y[[#130+#132]/2]
G65P9753A#121T[#4-[#24/2]-#10]F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
G65P9752A#121Q#17T[#4-[#24/2]-[#18/2]]F[#31]
#126=#131
G65P9753A#123T[#20+[#114*#100]]F#127W1.
G65P9753A#121T[#4]F#127W1.
#22=#126+#7+#18
N40
IF[ABS[#104]LT20.]GOTO41
(#21=2.**SKIPS*SECOND*PASS)
IF[#104EQ-200]GOTO126
IF[#104EQ200]GOTO122
IF[#104EQ100]GOTO128
IF[#104EQ-100]GOTO124
N122
#22=#4+[[#24+#18]/2]
#126=#4-[[#24+#18]/2]
#130=#5+[ABS[#132-#5]]
GOTO41
N124
#130=#5+[[#25+#18]/2]
#132=#5-[[#25+#18]/2]
#126=#4-[ABS[#22-#4]]
GOTO41
N126
#22=#4+[[#24+#18]/2]
#126=#4-[[#24+#18]/2]
#132=#5-[ABS[#130-#5]]
GOTO41
N128
#130=#5+[[#25+#18]/2]
#132=#5-[[#25+#18]/2]
#22=#4+[ABS[#126-#4]]
N41
(AIR*BLAST*OFF)
G65P9754X[[#126+#22]/2]Y[[#130+#132]/2]F#127
M05
#4=#[5040+#121]
#5=#[5040+#122]
#31=#30
IF[#21EQ1]GOTO16
#[#120+1]=[#126+#16+[#18/2]]/#129
#[#120+2]=[#22+#16-[#18/2]]/#129
#[#120+3]=[#130+#15-[#18/2]]/#129
#[#120+4]=[#132+#15+[#18/2]]/#129
GOTO44
N42
M98P9759
N44
(TWO*PROBES)
IF[#106EQ0]GOTO48
M0(EDIT*SECOND*PROBE*RECOGNITION*HERE)
#[#120+8]=#[#120]
#[#120+9]=#[#120+1]
#[#120+10]=#[#120+2]
#[#120+11]=#[#120+3]
#[#120+12]=#[#120+4]
#[#120+13]=#[#120+5]
#[#120+14]=#[#120+6]
GOTO48
N46
(SECOND*PROBE*SIDE)
#[#120+15]=#[#120]
#[#120+16]=#[#120+1]
#[#120+17]=#[#120+2]
#[#120+18]=#[#120+3]
#[#120+19]=#[#120+4]
#[#120+20]=#[#120+5]
#[#120+21]=#[#120+6]
N48
(PROBE*OFF)
N50
M99


O9856(MANUAL*TOOL*SETTING)
(COPYRIGHT*1992-2015*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
M5
IF[#4111LT.99]GOTO2
#107=160
GOTO50
N2
#119=9856
M98P9750
IF[#18EQ#0]GOTO4
#125=#18
N4
IF[#118EQ0]GOTO6
(PROBE*ON)
G4X1.0
N6
(AIR*BLAST*ON)
IF[#2NE#0]GOTO8
#2=1.
N8
IF[#2EQ1.]GOTO10
IF[#7NE#0]GOTO10
#107=120
GOTO50
N10
#146=0
IF[#7NE#0]GOTO12
#7=0
N12
#19=4
IF[#7GT0.]GOTO14
#19=3
N14
IF[#20NE#0]GOTO16
#20=#4120
N16
IF[#2EQ1]GOTO20
IF[#8NE#0]GOTO20
IF[#102EQ3.]GOTO18
#107=90.
GOTO50
N18
#8=#20
N20
#7=ABS[#7/2]
IF[#7EQ0]GOTO26
#130=800
#132=[#7*2]/#129
#132=[ROUND[1910/#132]]*10
IF[#132LT800]GOTO22
#132=800
N22
IF[#132GT150]GOTO24
#132=150
N24
#9=[#132/8]*#129
#144=4.*#129
N26
G90
#14=#[5040+#123]
#15=#[5020+#122]-#[5040+#122]
#16=#[5020+#121]-#[5040+#121]
#136=#[5040+#122]
#137=#[5040+#121]
#116=0.
IF[ABS[#7*2]GT#110]GOTO28
G65P9752A#123T[#14-[#114*#100]]F[30.*#129]D#101Q#17
#10=#131
GOTO30
N28
S#132
M#19
G65P9752A#123T[#14-[#114*#100]]F#144D#9Q#17S#130
#10=#131-[[[#[#120+6]]*#129]*#100]
N30
#14=#[5020+#123]-#[5040+#123]
#10=#14+#10-[[#[#120]]*#129]
#10=#10*#100
#6=#6*#100
#30=#10
IF[#2EQ1.]GOTO36
IF[#23EQ#0]GOTO32
#23=#23+#114
GOTO34
N32
#23=#114
N34
#136=[#[#120+3]+#[#120+4]]/2
#136=#136*#129
#136=#136-#15
#133=[ABS[#[#120+1]-#[#120+2]]]/2
#133=#133*#129
#134=[ABS[#[#120+3]-#[#120+4]]]/2
#134=#134*#129
#137=[#[#120+1]+#[#120+2]]/2
#137=#137*#129
#137=#137-#16
M98P9755
N36
IF[#11EQ#0]GOTO38
IF[ABS[#30]LE#11]GOTO38
#107=130
#146=1
IF[#13NE#0]GOTO40
GOTO50
N38
#6=#6*#100
#30=#30*#100
#[#141+#20]=#30-#6
IF[#140EQ0]GOTO40
#[#140+#20]=0(LW)
N40IF[#2EQ1]GOTO48
IF[#11EQ#0]GOTO46
IF[#142EQ0]GOTO42
IF[ABS[#[#143+#8]+#[#142+#8]-#12]LE#11]GOTO46
GOTO44
N42
IF[ABS[#[#143+#8]-#12]LE#11]GOTO46
N44#107=130
#146=1
IF[#13NE#0]GOTO48
GOTO50
N46
#[#143+#8]=[#12-#5]*#109
IF[#142EQ0]GOTO48
#[#142+#8]=0
N48
IF[#146EQ0]GOTO52
IF[#13NE#0]GOTO52
N50
M98P9759
N52#107=#0
M5
(AIR*BLAST*OFF)
(PROBE*OFF)
N54
M99


O9857(REN*TOOL*AUTO*SET)
(COPYRIGHT*1992-2015*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
M5
#12=0.(STEP*OFF*FROM*CENTRE*IN*MM)
#119=9857
M98P9750
IF[#2NE#0]GOTO2
#2=1
N2
IF[#138EQ0]GOTO6
IF[#7EQ#0]GOTO6
IF[ABS[#7]LE[ABS[#110]]]GOTO6
IF[#2EQ2]GOTO6
IF[#25EQ#0]GOTO6
IF[#25GE#138]GOTO4
IF[#25LE#139]GOTO4
GOTO6
N4
#107=80
GOTO94
N6
IF[#18EQ#0]GOTO8
#125=#18
N8
IF[#7LT[35.*#129]]GOTO10
IF[#26LT[10.2*#129]]GOTO10
M0
(POTENTIAL*COLLISION)
N10
#146=0
IF[#2EQ1]GOTO14
#107=120
IF[#7EQ#0]GOTO94
N14
IF[#7NE#0]GOTO16
#7=0
N16#19=4.
IF[#7GT0]GOTO18
#19=3.
N18
IF[#20NE#0]GOTO20
#20=#4120
N20
IF[#2EQ1]GOTO24
IF[#8NE#0]GOTO24
IF[#102EQ3.]GOTO22
#107=90.
GOTO94
N22
#8=#20
N24
#7=#7/2
IF[#25EQ#0]GOTO28
IF[#102LT1.1]GOTO26
#[#140+#20]=0
N26
#[#141+#20]=#25
N28
#7=ABS[#7]
IF[#7EQ0]GOTO34
#130=800
#132=[#7*2]/#129
#132=[ROUND[1910/#132]]*10
IF[#132LT800]GOTO30
#132=800
N30
IF[#132GT150]GOTO32
#132=150
N32
#9=[#132/8]*#129
#144=4.*#129
N34
M98P9751
IF[#2EQ2]GOTO42
IF[#2EQ4]GOTO42
IF[ABS[#7*2]LE[ABS[#110]]]GOTO38
IF[ABS[#104]EQ200.]GOTO36
IF[ABS[#104]EQ1.]GOTO36
G65P9754X[#137-[#7*#103]]Y[#136]
GOTO42
N36G65P9754X[#137]Y[#136-[#7*#103]]
GOTO42
N38
IF[ABS[#104]EQ200.]GOTO40
IF[ABS[#104]EQ1.]GOTO40
G65P9754X[#137-[#12*#129*#103]]Y[#136]
GOTO42
N40
G65P9754X[#137]Y[#136-[#12*#129*#103]]
N42
IF[#118EQ0]GOTO44
(PROBE*ON)
G4X1.0
N44
(AIR*BLAST*ON)
IF[#2EQ#0]GOTO46
IF[#2EQ1]GOTO46
IF[#2EQ2]GOTO56
IF[#2EQ3]GOTO46
IF[#2EQ4]GOTO64
N46
IF[[#7*2]GT#110]GOTO48 
IF[#138EQ0]GOTO48
#135=[[#[#120]*#129]-#14]
#135=#135-[#112*2]
G65P9754Z[#135+[#138*#100]-#116]
G65P9753A#123T[#135+[#139*#100]-#116]F#124
#10=#131
G65P9754Z[#10+[[5.*#129]*#100]]
G65P9752A#123T#10F[30*#129]Q#17
#10=[[#[#120]*#129]-#131-#14]
#10=#10-#112
#30=#10
IF[#2GT1.1]GOTO56
GOTO80
N48
IF[#138EQ0]GOTO50
#107=140.
M98P9759
N50
#135=[[#[#120]*#129]-#14+[#113*#100]]-#112
G65P9754Z#135
G65P9753A#123T[[#[#120]*#129]-#14+[#114*#100]-#112]F#127W1.
IF[ABS[#7*2]GT[ABS[#110]]]GOTO52
G65P9752A#123T[[#[#120]*#129]-#14-#112]F[30*#129]D#101Q#17
#10=[#[#120]*#129]-#131-#14
#10=#10-#112
GOTO54
N52
S#132
M#19
G65P9752A#123T[[[#[#120]]*#129]-#14-#112]F#144D#9Q#17S#130
#10=[[#[#120]*#129]-#131-#14]
#10=#10+[#[#120+6]*#129]
#10=#10-#112
N54
#30=#10
IF[#2EQ3]GOTO56
GOTO80
N56
IF[#108EQ44]GOTO58
#10=#10*[-1]
N58
IF[#23EQ#0]GOTO60
#23=#23+#114
GOTO62
N60
#23=#114
N62
M98P9755
GOTO80
N64
S#132
M#19
IF[#21NE#0]GOTO66
#21=2.*#129
N66
IF[ABS[#104]EQ200.]GOTO68
IF[ABS[#104]EQ2.]GOTO68
G65P9754X[#137-[[#7+#133+#125]*#115]]Y[#136]
GOTO70
N68
G65P9754X[#137]Y[#136-[[#7+#134+#125]*#115]]
N70
#135=[[#[#120]]*#129]-#14+[#113*#100]-#112
G65P9754Z#135
S#132
M#19
G65P9753A#123T[[#[#120+5]*#129]-#14-[#114*#100]-#112]F#127W1.
(ROTATING)
IF[ABS[#104]EQ200.]GOTO72
IF[ABS[#104]EQ2.]GOTO72
G65P9753A#121T[#137-[[#133+#7-#21]*#115]]F#127W1.
GOTO74
N72
G65P9753A#122T[#136-[[#134+#7-#21]*#115]]F#127W1.
N74
G65P9752A#123T[[#[#120+5]*#129]-#14-#112]F#144D#9Q#17S#130
#10=[[#[#120+5]]*#129]-#131-#14
#10=#10+[[#[#120+6]]*#129]
#10=#10-#112
IF[ABS[#104]EQ200.]GOTO76
IF[ABS[#104]EQ2.]GOTO76
G65P9753A#121T[#137-[[#133+#7+#125]*#115]]F#127W1.
GOTO78
N76
G65P9753A#122T[#136-[[#134+#7+#125]*#115]]F#127W1.
N78
G65P9753A#123T[[#[#120]*#129]-#14+[#114*#100]-#112]F#127W1.
#30=#10
N80
(AIR*BLAST*OFF)
M98P9751
G90
IF[#2EQ2]GOTO84
IF[#11EQ#0]GOTO82
IF[ABS[#30]LE#11]GOTO82
#107=130
#146=1
IF[#13NE#0]GOTO84
GOTO94
N82
#116=#116*#100
#30=#30*#100
#[#141+#20]=[#116+#112-#30-#6]
IF[#140EQ0]GOTO84
#[#140+#20]=0
N84IF[#2EQ1]GOTO92
IF[#2EQ4]GOTO92
IF[#11EQ#0]GOTO90
IF[#142EQ0]GOTO86
IF[ABS[#[#143+#8]+#[#142+#8]-#12]LE#11]GOTO90
GOTO88
N86
IF[ABS[#[#143+#8]-#12]LE#11]GOTO90
N88#107=130
#146=1
IF[#13NE#0]GOTO92
GOTO94
N90
#[#143+#8]=[#12-#5]*#109
IF[#142EQ0]GOTO92
#[#142+#8]=0
N92
M98P9751
G90
IF[#146EQ0]GOTO96
IF[#13NE#0]GOTO96
N94
M98P9759
N96#107=#0
M5
(PROBE*OFF)
N98
M99


O9858(BROKEN*TOOL*CYCLE)
(COPYRIGHT*1992-2015*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
#12=0.(STEP*OFF*FROM*CENTRE*IN*MM)
#6=0
M5
#119=9858
M98P9750
#146=0
IF[ABS[#7]GT[ABS[#110]]]GOTO2
#7=0
N2
#7=#7/2
#6=4
IF[#7GT0.]GOTO4
#6=3
N4
IF[#7EQ0]GOTO10
#130=800
#132=#7*2/#129
#132=[ROUND[1910/#132]]*10
IF[#132LT800]GOTO6
#132=800
N6
IF[#132GT150]GOTO8
#132=150
N8
#9=[#132/8]*#129
#144=4.*#129
S#132
M#6
N10
IF[#11NE#0]GOTO12
#11=.5*#129
N12
IF[#20NE#0]GOTO14
#20=#4111
N14
IF[#26EQ#0]GOTO16
#1=2.
IF[#112EQ0]GOTO16
#27=1
N16
M98P9751
IF[#26EQ#0]GOTO20
#30=0
#112=#30
#31=[[#[#120]]*#129]-#14
IF[#26GE#114]GOTO18
#26=#114
N18
#26=#31+[#26*#100]
#30=#[5040+#123]-#116
IF[[#30*#100]GT[#26*#100]]GOTO20
G65P9754Z#26
N20
#138=9858.
G65P9754X#137Y#136
IF[#25NE#0]GOTO22
#25=#114
N22
IF[ABS[#7*2]GT[ABS[#110]]]GOTO26
IF[ABS[#104]EQ200.]GOTO24
IF[ABS[#104]EQ1.]GOTO24
G65P9754X[#137-[#12*#129*#103]]Y[#136]
GOTO30
N24
G65P9754X[#137]Y[#136-[#12*#129*#103]]
GOTO30
N26
IF[ABS[#104]EQ200.]GOTO28
IF[ABS[#104]EQ1.]GOTO28
G65P9754X[#137-[#7*#103]]Y[#136]
GOTO30
N28
G65P9754X[#137]Y[#136-[#7*#103]]
N30
IF[#118EQ0]GOTO32
(PROBE*ON)
G4X1.0
N32
(AIR*BLAST*ON)
IF[#25GT#114]GOTO34
G65P9754Z[[#[#120]*#129]-#14+[#114*#100]-#112]
GOTO36
N34
G65P9754Z[[#[#120]*#129]-#14+[#25*#100]-#112]
N36
G65P9753A#123T[[#[#120]*#129]-#14+[#25*#100]-#112]W4.F#127
IF[#7NE0]GOTO40
IF[#11LE[.499*#129]]GOTO38
G65P9752A#123T[[#[#120]*#129]-#14-#112]F#101D#101Q#17W4.
#10=[[#[#120]*#129]-#131-#14]
#10=#10-#112
GOTO42
N38
G65P9752A#123T[[#[#120]*#129]-#14-#112]F[30.*#129]D#101Q#17
#10=[[#[#120]*#129]-#131-#14]
#10=#10-#112
GOTO42
N40
G65P9752A#123T[[#[#120]*#129]+[[#[#120+6]*#129]]-#14-#112]F#144D#9Q#17S#130
#10=[[#[#120]*#129]+[[#[#120+6]*#129]]-#131-#14]
#10=#10-#112
N42
(AIR*BLAST*OFF)
IF[#26EQ#0]GOTO44
G65P9754Z#26
GOTO46
N44
M98P9751
G90
N46
IF[#108EQ43]GOTO48
#10=#10*[-1.]
N48IF[#10GT#11]GOTO50
IF[ABS[#10]GT#11]GOTO52
GOTO58
N50#107=60.
IF[#13GT.9]GOTO56
GOTO54
N52#107=50.
IF[#13GT.9]GOTO56
N54
M98P9759
N56
#146=1
N58M5
(PROBE*OFF)
M99


O9859(REN*TEMP*COMP)
(COPYRIGHT*1992-2015*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
#119=9859
M98P9750
#4=#19
#107=90
IF[#3EQ#0]GOTO66
#107=120
IF[#7EQ#0]GOTO66
#107=30
IF[#3EQ2.]GOTO2
IF[#11EQ#0]GOTO2
GOTO66
N2
#107=#0
#114=3*#129
#30=30*#129
#31=4*#129
IF[#23NE#0]GOTO4
#23=5*#129
N4
#19=4
IF[#7GT0]GOTO6
#19=3
N6
IF[#20NE#0]GOTO8
#20=#4120
N8
IF[#2EQ1]GOTO10
IF[#8NE#0]GOTO10
#8=#20(D)
N10
#7=#7/2
#7=ABS[#7]
IF[#7EQ0]GOTO16
#130=800
#132=[#7*2]/#129
#132=[ROUND[1910/#132]]*10
IF[#132LT800]GOTO12
#132=800
N12
IF[#132GT150]GOTO14
#132=150
N14
#9=[#132/8]*#129
N16
M98P9751
M#19S800
IF[ABS[#7*2]LT#110]GOTO20
IF[ABS[#104]EQ200.]GOTO18
IF[ABS[#104]EQ1.]GOTO18
G65P9754X[#137-[#7*#103]]Y[#136]
GOTO22
N18G65P9754X[#137]Y[#136-[#7*#103]]
GOTO22
N20
G65P9754X#137Y#136
N22
IF[#118EQ0]GOTO24
(PROBE*ON)
G4X1.0
N24
(AIR*BLAST*ON)
#135=[[#[#120]*#129]-#14+[#114*#100]]
#135=#135-#112
G65P9754Z#135
IF[#26EQ#0]GOTO28
IF[#2NE1]GOTO26
#31=#30
#130=#0
N26
G65P9752A#123T[[[#[#120]]*#129]-#14-#112]F[#31]Q#17S#130
#32=#131
G65P9754X#137Y#136
N28
#130=#0
#132=#0
#22=#0
#126=#0
#10=0
IF[#104EQ-100]GOTO40
IF[#104EQ100]GOTO36
IF[#104EQ200]GOTO38
IF[#104EQ-200]GOTO34
IF[#104EQ-1]GOTO40
IF[#104EQ1]GOTO36
IF[#104EQ2]GOTO38
IF[#104EQ-2]GOTO34
N30
#21=ABS[#104]
IF[#21EQ2]GOTO32
IF[#103LT0]GOTO34
GOTO38
N32
IF[#103LT0]GOTO40
GOTO36
N34IF[#25EQ#0]GOTO42
G65P9753A#122T[#136+[#134+#114+ABS[#7]]]F#127W1.
G65P9753A#123T[[[#[#120]]*#129]-#14-[#23*#100]-#112]F#127W1.
G65P9752A#122T[#136+[#134+ABS[#7]]]Q#17F[#31]
#130=#131
G65P9753A#123T[[[#[#120]]*#129]-#14+[#114*#100]-#112]F#127W1.
G65P9753A#122T[#136]F#127W1.
#29=-1.
GOTO42
N36IF[#24EQ#0]GOTO42
G65P9753A#121T[#137-[#133+#114+ABS[#7]]]F#127W1.
G65P9753A#123T[[[#[#120]]*#129]-#14-[#23*#100]-#112]F#127W1.
G65P9752A#121Q#17T[#137-[#133+ABS[#7]]]F[#31]
#126=#131
G65P9753A#123T[[[#[#120]]*#129]-#14+[#114*#100]-#112]F#127W1.
G65P9753A#121T[#137]F#127W1.
#28=1.
GOTO42
N38IF[#25EQ#0]GOTO42
G65P9753A#122T[#136-[#134+#114+ABS[#7]]]F#127W1.
G65P9753A#123T[[[#[#120]]*#129]-#14-[#23*#100]-#112]F#127W1.
G65P9752A#122Q#17T[#136-[#134+ABS[#7]]]F[#31]
#132=#131
G65P9753A#123T[[[#[#120]]*#129]-#14+[#114*#100]-#112]F#127W1.
G65P9753A#122T[#136]F#127W1.
#29=1.
GOTO42
N40IF[#24EQ#0]GOTO42
G65P9753A#121T[#137+[#133+#114+ABS[#7]]]F#127W1.
G65P9753A#123T[[[#[#120]]*#129]-#14-[#23*#100]-#112]F#127W1.
G65P9752A#121Q#17T[#137+[#133+ABS[#7]]]F[#31]
#22=#131
G65P9753A#123T[[[#[#120]]*#129]-#14+[#114*#100]-#112]F#127W1.
G65P9753A#121T[#137]F#127W1.
#28=-1.
N42
(AIR*BLAST*OFF)
IF[ABS[#104]GT20.]GOTO44
#10=#10+1
IF[#10EQ2]GOTO44
GOTO30
N44
M98P9751
M05
IF[#3NE1]GOTO50
#100=#0
#101=#0
#102=#0
#103=0
IF[#26EQ#0]GOTO46
#[#26]=#14+#32+#112
N46IF[#25EQ#0]GOTO48
#[#25]=#15+#130+#132+[#7*#29]
N48IF[#24EQ#0]GOTO64
#[#24]=#16+#22+#126+[#7*#28]
GOTO68
N50
#100=#0
#101=#0
#102=#0
#103=0
IF[#24EQ#0]GOTO52
#100=#[#24]-[#16+#22+#126+[#7*#28]]
IF[#11EQ#0]GOTO52
IF[ABS[#100]LTABS[#11]]GOTO52
#103=1
N52
IF[#25EQ#0]GOTO54
#101=#[#25]-[#15+#130+#132+[#7*#29]]
IF[#11EQ#0]GOTO54
IF[ABS[#101]LTABS[#11]]GOTO54
#103=1
N54
IF[#26EQ#0]GOTO64
#102=#[#26]-[#14+#32]
#102=#102-#112
IF[#2NE1]GOTO62
#10=#[#120+7]-#102
#[#120+7]=#102
IF[#4EQ#0]GOTO60
IF[#11NE#0]GOTO56
#11=0.05*#129
N56
IF[ABS[#10]LTABS[#11]]GOTO58
#107=135
GOTO66
N58
#5203=#5203+#10
N60
#101=#10
GOTO68
N62
IF[#11EQ#0]GOTO64
IF[ABS[#102]LTABS[#11]]GOTO64
#103=1
N64
IF[#103EQ0]GOTO68
IF[#13EQ1]GOTO68
#107=130
N66
M98P9759
N68
(PROBE*OFF)
M99


O9921
(REN*3DTS*GP*CYCLE)
(F-4012-0583-AF)
(COPYRIGHT*1992-2015*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
IF[#9EQ#0]GOTO1
#3000=1(F*INPUT*NOT*ALLOWED)
N1
#10=#1
M98P9750
IF[#13EQ201]GOTO10
IF[#13EQ200]GOTO15
#107=410
IF[#[#120]EQ#0]GOTO19
IF[#[#120]EQ0]GOTO19
IF[#13EQ21]GOTO2
IF[#13EQ22]GOTO5
IF[#13EQ23]GOTO8
IF[#13EQ24]GOTO9
N2
IF[#20NE#0]GOTO3
#20=#4120
N3
IF[#3EQ0]GOTO4
G65P9856D#7T#20K#6Q#17
GOTO20
N4
G65P9857B1.D#7T#20K#6Q#17Y#25
GOTO20
N5
IF[#20NE#0]GOTO6
#20=#4120
N6
#107=120
IF[#7EQ#0]GOTO19
IF[#3EQ0]GOTO7
G65P9856B3.D#7T#20E#8J#5K#6Q#17R#18Z#26
GOTO20
N7
G65P9857B3.D#7T#20J#5K#6Y#25Z#26E#8Q#17R#18
GOTO20
N8
G65P9858T#20D#7H#11M#21Q#17F#9
GOTO20
N9
#3000=1(CYCLE*UNAVAILABLE)
GOTO20
N10
IF[#10NE#0]GOTO11
G65P9855D#7R#2Q#17T#20Z#26F#9
GOTO20
N11
M98P9750
IF[#118EQ0]GOTO12
(PROBE*ON)
G4X1.0
N12
(AIR*BLAST*ON)
#30=30*#129
#31=4*#129
IF[#17NE#0]GOTO13
#17=#117
N13
#107=110
IF[#20LE0]GOTO19
#1=1.
M98P9751
IF[#6NE#0]GOTO14
#6=#116
N14
#4=#[5040+#121]
#5=#[5040+#122]
#8=#[5040+#123]-#116
#137=#4
#136=#5
G65P9752A#123Q#17T[#8-[[10.*#129]*#100]]F[#30]
#20=#131
G65P9752A#123Q#17T[#8-[[10.*#129]*#100]]F[#31]
#136=#131
#[#120]=#20+#14+#116-#6
#[#120]=[#[#120]+#112]/#129
#[#120+6]=[#136-#20]/#129
#[#120+7]=0
(PROBE*OFF)
(AIR*BLAST*OFF)
GOTO20
N15
(TS*READY*CHECK)
IF[#7NE#0]GOTO16
#7=12.7*#129
N16
M98P9750
#1=1.
M98P9751
IF[#9NE#0]GOTO17
#9=#101
N17
IF[#118EQ0]GOTO18
(PROBE*ON)
G4X1.0
N18
G53
#2=#[5040+#123]-#116
#3=#2-[7*#129]*#100
GOTO[#123*100]
N100
G31X#3F#9
G1X#2F#101
GOTO400
N200
G31Y#3F#9
G1Y#2F#101
GOTO400
N300
G31Z#3F#9
G1Z#2F#101
N400
#107=420
IF[ABS[#[5060+#123]-#116-#2]LT#145]GOTO19
IF[ABS[#[5060+#123]-#116-#3]LT#145]GOTO19
#107=410
IF[#[#120]EQ#0]GOTO19
IF[#[#120]EQ0]GOTO19
#27=[[#[#120+1]+#[#120+2]]/2]*#129
#28=[[#[#120+3]+#[#120+4]]/2]*#129
IF[[ABS[#[5020+#121]-#27]]GT[10*#129]]GOTO19
IF[[ABS[#[5020+#122]-#28]]GT[10*#129]]GOTO19
M98P9750
#1=#121
#4=1
#8=#[5040+#123]-#116
WHILE[#4LT3]DO1
G53
#30=#[#1+5040]
G65P9753A#1T[#30-[#7/4]]F#127W1.
G65P9752A#123Q#17T[#8-[10.*#129]*#100]F[30*#129]V1.
#[#1+26]=#131
G65P9753A#1T[#30+[#7/4]]F#127W1.
#8=#[5040+#123]-#116
G65P9752A#123Q#17T[#8-[10.*#129]*#100]F[30*#129]V1.
#[#1+26]=#[#1+26]-#131
G65P9753A#1T#30F#127W1.
#1=#122
#4=#4+1
END1
#100=#[#121+26]
#101=#[#122+26]
#107=417
IF[ABS[#100]GT#128]GOTO19
IF[ABS[#101]GT#128]GOTO19
#107=435
N19
(PROBE*OFF)
(AIR*BLAST*OFF)
G65P9759
N20
M99
%
